inherited fImovel_aluguel: TfImovel_aluguel
  Left = 369
  Top = 133
  BorderIcons = [biSystemMenu]
  Caption = 'Cadastro de Im'#243'vel de Alugu'#233'l'
  ClientHeight = 479
  ClientWidth = 739
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited StsBr: TStatusBar
    Top = 460
    Width = 739
  end
  inherited Panel3: TPanel [1]
    Width = 739
    inherited DBTextDestaque1: TDBText
      Left = 136
      DataField = 'NOME_PROPRIETARIO'
    end
    inherited DBTextDestaque: TDBText
      Left = 134
      DataField = 'NOME_PROPRIETARIO'
    end
    object DBText1: TDBText
      Left = 8
      Top = 5
      Width = 94
      Height = 29
      AutoSize = True
      DataField = 'COD_IMALU'
      DataSource = DtSrc
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object DBText2: TDBText
      Left = 6
      Top = 4
      Width = 94
      Height = 29
      AutoSize = True
      DataField = 'COD_IMALU'
      DataSource = DtSrc
      Font.Charset = ANSI_CHARSET
      Font.Color = 8344832
      Font.Height = -24
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object PageControl1: TPageControl [2]
    Left = 0
    Top = 41
    Width = 739
    Height = 373
    ActivePage = TabSheet1
    TabOrder = 3
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'DADOS DO IMOVEL  '
      object Label6: TLabel
        Left = 3
        Top = 184
        Width = 33
        Height = 13
        Caption = 'Cidade'
      end
      object Label7: TLabel
        Left = 243
        Top = 144
        Width = 33
        Height = 13
        Caption = 'Estado'
      end
      object Label8: TLabel
        Left = 286
        Top = 144
        Width = 19
        Height = 13
        Caption = 'Cep'
      end
      object Label5: TLabel
        Left = 5
        Top = 144
        Width = 27
        Height = 13
        Caption = 'Bairro'
      end
      object Label4: TLabel
        Left = 3
        Top = 104
        Width = 64
        Height = 13
        Caption = 'Complemento'
      end
      object Label2: TLabel
        Left = 3
        Top = 64
        Width = 46
        Height = 13
        Caption = 'Endere'#231'o'
      end
      object Label1: TLabel
        Left = 3
        Top = 24
        Width = 99
        Height = 13
        Caption = 'Nome do Propriet'#225'rio'
      end
      object Label3: TLabel
        Left = 348
        Top = 64
        Width = 37
        Height = 13
        Caption = 'Numero'
      end
      object Label11: TLabel
        Left = 394
        Top = 144
        Width = 46
        Height = 13
        Caption = 'Capta'#231#227'o'
      end
      object Label12: TLabel
        Left = 394
        Top = 183
        Width = 39
        Height = 13
        Caption = 'Inquilino'
      end
      object Label30: TLabel
        Left = 394
        Top = 2
        Width = 118
        Height = 13
        Caption = 'Caracteristicas do Im'#243'vel'
      end
      object Label31: TLabel
        Left = 3
        Top = 1
        Width = 88
        Height = 13
        Caption = 'C'#243'digo Imobili'#225'ria :'
      end
      object Label32: TLabel
        Left = 195
        Top = 1
        Width = 37
        Height = 13
        Caption = 'Im'#243'vel :'
      end
      object BitBtn1: TBitBtn
        Left = 315
        Top = 77
        Width = 33
        Height = 24
        Caption = '. . .'
        TabOrder = 0
        OnClick = BitBtn1Click
      end
      object FacDBEdit1: TFacDBEdit
        Left = 3
        Top = 38
        Width = 353
        Height = 21
        TabStop = False
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = clSilver
        DataField = 'NOME_PROPRIETARIO'
        DataSource = DtSrc
        ReadOnly = True
        TabOrder = 1
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object FacDBEdit2: TFacDBEdit
        Left = 349
        Top = 79
        Width = 41
        Height = 21
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'NR'
        DataSource = DtSrc
        TabOrder = 2
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object FacDBEdit3: TFacDBEdit
        Left = 3
        Top = 118
        Width = 386
        Height = 21
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'COMPL'
        DataSource = DtSrc
        TabOrder = 3
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object FacDBEdit6: TFacDBEdit
        Left = 243
        Top = 158
        Width = 42
        Height = 21
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'UF'
        DataSource = DtSrc
        TabOrder = 4
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object FacDBEdit7: TFacDBEdit
        Left = 286
        Top = 158
        Width = 107
        Height = 21
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CEP'
        DataSource = DtSrc
        TabOrder = 5
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object FacDBEdit28: TFacDBEdit
        Left = 3
        Top = 79
        Width = 311
        Height = 21
        TabStop = False
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = clSilver
        DataField = 'RUA'
        DataSource = DtSrc
        ReadOnly = True
        TabOrder = 6
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object GroupBox1: TGroupBox
        Left = 3
        Top = 231
        Width = 726
        Height = 106
        Caption = 'Dados Adicionais'
        TabOrder = 7
        object Label9: TLabel
          Left = 5
          Top = 16
          Width = 21
          Height = 13
          Caption = 'Tipo'
        end
        object Label10: TLabel
          Left = 192
          Top = 14
          Width = 73
          Height = 13
          Caption = 'N'#186' da Matricula'
        end
        object Label15: TLabel
          Left = 272
          Top = 15
          Width = 80
          Height = 13
          Caption = 'Data do Registro'
        end
        object Label16: TLabel
          Left = 6
          Top = 54
          Width = 52
          Height = 13
          Caption = 'N'#186' Quartos'
        end
        object Label17: TLabel
          Left = 80
          Top = 54
          Width = 41
          Height = 13
          Caption = 'N'#186' Salas'
        end
        object Label18: TLabel
          Left = 154
          Top = 54
          Width = 58
          Height = 13
          Caption = 'N'#186' Cozinhas'
        end
        object Label19: TLabel
          Left = 228
          Top = 54
          Width = 57
          Height = 13
          Caption = 'N'#186' Ve'#237'culos'
        end
        object Label20: TLabel
          Left = 366
          Top = 13
          Width = 63
          Height = 13
          Caption = 'Observa'#231#245'es'
        end
        object Label34: TLabel
          Left = 302
          Top = 54
          Width = 35
          Height = 13
          Caption = 'Metros '
        end
        object Label21: TLabel
          Left = 680
          Top = 34
          Width = 36
          Height = 13
          Caption = 'S = Sim'
        end
        object Label22: TLabel
          Left = 681
          Top = 48
          Width = 40
          Height = 13
          Caption = 'N = N'#227'o'
        end
        object Label14: TLabel
          Left = 637
          Top = 23
          Width = 39
          Height = 13
          Caption = 'Alugado'
        end
        object DBComboBox1: TDBComboBox
          Left = 5
          Top = 30
          Width = 186
          Height = 21
          BevelKind = bkFlat
          CharCase = ecUpperCase
          DataField = 'TIPO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'CASA'
            'LOTE'
            'APTO'
            'GALP'#195'O INDUSTRIAL'
            'SALA COMERCIAL'
            'LOJA'
            'SITIO'
            'CH'#193'CARA'
            'FAZENDA')
          ParentFont = False
          TabOrder = 0
          OnKeyPress = FormKeyPress
        end
        object FacDBEdit8: TFacDBEdit
          Left = 192
          Top = 30
          Width = 78
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'MATRICULA'
          DataSource = DtSrc
          TabOrder = 1
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit9: TFacDBEdit
          Left = 271
          Top = 30
          Width = 90
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'DATA_REGISTRO'
          DataSource = DtSrc
          TabOrder = 2
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit10: TFacDBEdit
          Left = 5
          Top = 69
          Width = 60
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'N_QUARTOS'
          DataSource = DtSrc
          TabOrder = 4
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit11: TFacDBEdit
          Left = 79
          Top = 69
          Width = 60
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'N_SALAS'
          DataSource = DtSrc
          TabOrder = 5
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit12: TFacDBEdit
          Left = 153
          Top = 69
          Width = 60
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'N_COZINHAS'
          DataSource = DtSrc
          TabOrder = 6
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit13: TFacDBEdit
          Left = 227
          Top = 69
          Width = 60
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'N_GARAGENS'
          DataSource = DtSrc
          TabOrder = 7
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object DBMemo2: TDBMemo
          Left = 364
          Top = 28
          Width = 268
          Height = 62
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'DETALHES'
          DataSource = DtSrc
          TabOrder = 3
        end
        object FacDBEdit23: TFacDBEdit
          Left = 301
          Top = 69
          Width = 60
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'METRAGEM'
          DataSource = DtSrc
          TabOrder = 8
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object DBEdit13: TDBEdit
          Left = 636
          Top = 39
          Width = 44
          Height = 21
          TabStop = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Color = clSilver
          DataField = 'ALUGADO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 9
          OnKeyPress = FormKeyPress
        end
        object chkIRRF: TCheckBox
          Left = 640
          Top = 72
          Width = 78
          Height = 17
          Caption = 'IRRF'
          TabOrder = 10
          OnClick = chkIRRFClick
        end
      end
      object BitBtn2: TBitBtn
        Left = 358
        Top = 36
        Width = 33
        Height = 24
        Caption = '. . .'
        TabOrder = 8
        OnClick = BitBtn2Click
      end
      object FacDBEdit14: TFacDBEdit
        Left = 394
        Top = 158
        Width = 302
        Height = 21
        TabStop = False
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = clSilver
        DataField = 'NOME'
        DataSource = DtSrc
        ReadOnly = True
        TabOrder = 9
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object BitBtn3: TBitBtn
        Left = 697
        Top = 156
        Width = 32
        Height = 24
        Caption = '. . .'
        TabOrder = 10
        OnClick = BitBtn3Click
      end
      object FacDBEdit15: TFacDBEdit
        Left = 394
        Top = 197
        Width = 335
        Height = 21
        TabStop = False
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = clSilver
        DataField = 'NOME_INQUILINO'
        DataSource = DtSrc
        ReadOnly = True
        TabOrder = 11
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object DBMemo1: TDBMemo
        Left = 394
        Top = 18
        Width = 334
        Height = 121
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'OBS'
        DataSource = DtSrc
        TabOrder = 12
      end
      object FacDBEdit16: TFacDBEdit
        Left = 89
        Top = 3
        Width = 87
        Height = 21
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'COD_IMOBILIARIA'
        DataSource = DtSrc
        TabOrder = 13
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object DBComboBox2: TDBComboBox
        Left = 234
        Top = 3
        Width = 156
        Height = 21
        BevelKind = bkFlat
        CharCase = ecUpperCase
        DataField = 'IMOVEL'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'RESIDENCIAL'
          'N'#195'O RESIDENCIAL'
          '')
        ParentFont = False
        TabOrder = 14
        OnKeyPress = FormKeyPress
      end
      object BitBtn7: TBitBtn
        Left = 208
        Top = 155
        Width = 33
        Height = 24
        Caption = '. . .'
        TabOrder = 15
        OnClick = BitBtn7Click
      end
      object BitBtn8: TBitBtn
        Left = 359
        Top = 195
        Width = 33
        Height = 24
        Caption = '. . .'
        TabOrder = 16
        OnClick = BitBtn8Click
      end
      object FacDBEdit4: TFacDBEdit
        Left = 4
        Top = 158
        Width = 203
        Height = 21
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'BAIRRO'
        DataSource = DtSrc
        TabOrder = 17
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object FacDBEdit5: TFacDBEdit
        Left = 3
        Top = 198
        Width = 354
        Height = 21
        AutoSelect = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CIDADE'
        DataSource = DtSrc
        TabOrder = 18
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
    end
    object TabSheet2: TTabSheet
      Caption = '   FINANCEIRO   '
      ImageIndex = 1
      object pnl4: TPanel
        Left = 0
        Top = 0
        Width = 731
        Height = 85
        Align = alTop
        TabOrder = 0
        object lbl1: TLabel
          Left = 20
          Top = 4
          Width = 41
          Height = 13
          Caption = 'R$ Valor'
        end
        object lbl2: TLabel
          Left = 158
          Top = 3
          Width = 100
          Height = 13
          Caption = 'R$ Valor por Extenso'
        end
        object lbl3: TLabel
          Left = 485
          Top = 4
          Width = 59
          Height = 13
          Caption = '% Taxa Adm'
        end
        object lbl4: TLabel
          Left = 587
          Top = 3
          Width = 31
          Height = 13
          Caption = 'Meses'
        end
        object lbl5: TLabel
          Left = 675
          Top = 3
          Width = 23
          Height = 13
          Caption = 'Rep.'
        end
        object lbl6: TLabel
          Left = 627
          Top = 3
          Width = 41
          Height = 13
          Caption = 'Dia Pgto'
        end
        object lbl7: TLabel
          Left = 20
          Top = 42
          Width = 58
          Height = 13
          Caption = 'Alugado Dia'
        end
        object lbl8: TLabel
          Left = 108
          Top = 42
          Width = 81
          Height = 13
          Caption = 'Vencim. Contrato'
        end
        object lbl9: TLabel
          Left = 197
          Top = 42
          Width = 87
          Height = 13
          Caption = 'Data de Aquisi'#231#227'o'
        end
        object lbl10: TLabel
          Left = 290
          Top = 42
          Width = 42
          Height = 13
          Caption = 'Car'#234'ncia'
        end
        object lbl11: TLabel
          Left = 384
          Top = 42
          Width = 95
          Height = 13
          Caption = 'Forma Recebimento'
        end
        object lbl12: TLabel
          Left = 550
          Top = 42
          Width = 74
          Height = 13
          Caption = 'Forma Repasse'
        end
        object dbedtVALOR_ALUGUEL: TDBEdit
          Left = 18
          Top = 18
          Width = 85
          Height = 21
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'VALOR_ALUGUEL'
          DataSource = DtSrc
          TabOrder = 0
          OnChange = dbedtVALOR_ALUGUELChange
          OnKeyPress = FormKeyPress
        end
        object BitBtn6: TBitBtn
          Left = 103
          Top = 14
          Width = 52
          Height = 25
          Caption = 'Alugueis'
          TabOrder = 1
          TabStop = False
          OnClick = BitBtn6Click
        end
        object dbedtVALOR_EXTENCO: TDBEdit
          Left = 156
          Top = 18
          Width = 325
          Height = 21
          TabStop = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          Color = clSilver
          DataField = 'VALOR_EXTENCO'
          DataSource = DtSrc
          ReadOnly = True
          TabOrder = 2
        end
        object dbedtPORCENTUAL: TDBEdit
          Left = 483
          Top = 18
          Width = 34
          Height = 21
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'PORCENTUAL'
          DataSource = DtSrc
          TabOrder = 3
          OnExit = dbedtPORCENTUALExit
          OnKeyPress = FormKeyPress
        end
        object dbedtTAXA_ADM: TDBEdit
          Left = 518
          Top = 18
          Width = 66
          Height = 21
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'TAXA_ADM'
          DataSource = DtSrc
          TabOrder = 4
          OnKeyPress = FormKeyPress
        end
        object FacDBEdit17: TFacDBEdit
          Left = 586
          Top = 18
          Width = 39
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'MESES'
          DataSource = DtSrc
          TabOrder = 5
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit19: TFacDBEdit
          Left = 627
          Top = 18
          Width = 45
          Height = 21
          TabStop = False
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          Color = clSilver
          DataField = 'DIAPGTO'
          DataSource = DtSrc
          TabOrder = 6
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit24: TFacDBEdit
          Left = 674
          Top = 18
          Width = 39
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          Color = clSilver
          DataField = 'PRAZO_REPASSE'
          DataSource = DtSrc
          TabOrder = 7
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit21: TFacDBEdit
          Left = 18
          Top = 57
          Width = 87
          Height = 21
          TabStop = False
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          Color = clSilver
          DataField = 'DATA_LOCA'
          DataSource = DtSrc
          ReadOnly = True
          TabOrder = 8
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit22: TFacDBEdit
          Left = 107
          Top = 57
          Width = 87
          Height = 21
          TabStop = False
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          Color = clSilver
          DataField = 'DATA_VCONT'
          DataSource = DtSrc
          TabOrder = 9
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit20: TFacDBEdit
          Left = 196
          Top = 57
          Width = 92
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'DATA_AQUIZICAO'
          DataSource = DtSrc
          TabOrder = 10
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit18: TFacDBEdit
          Left = 289
          Top = 57
          Width = 92
          Height = 21
          AutoSelect = False
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'CARENCIA'
          DataSource = DtSrc
          TabOrder = 11
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object dbcbbFORMA_RECEBE: TDBComboBox
          Left = 383
          Top = 57
          Width = 163
          Height = 21
          BevelKind = bkFlat
          DataField = 'FORMA_RECEBE'
          DataSource = DtSrc
          ItemHeight = 13
          Items.Strings = (
            'Dep'#243'sito Banc'#225'rio'
            'Imobili'#225'ria'
            'Boleto')
          TabOrder = 12
        end
        object dbcbbFORMA_REPASSE: TDBComboBox
          Left = 549
          Top = 57
          Width = 163
          Height = 21
          BevelKind = bkFlat
          DataField = 'FORMA_REPASSE'
          DataSource = DtSrc
          ItemHeight = 13
          Items.Strings = (
            'Dep'#243'sito Banc'#225'rio'
            'Imobili'#225'ria'
            'Boleto')
          TabOrder = 13
        end
      end
      object pnl5: TPanel
        Left = 0
        Top = 85
        Width = 731
        Height = 260
        Align = alClient
        TabOrder = 1
        object JvDBGrid3: TJvDBGrid
          Left = 1
          Top = 1
          Width = 729
          Height = 258
          Align = alClient
          BorderStyle = bsNone
          DataSource = dstContas
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          BevelKind = bkFlat
          AutoSizeColumns = True
          SelectColumnsDialogStrings.Caption = 'Select columns'
          SelectColumnsDialogStrings.OK = '&OK'
          SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
          EditControls = <>
          RowsHeight = 17
          TitleRowHeight = 17
          Columns = <
            item
              Expanded = False
              FieldName = 'TIPOCONTA'
              Width = 68
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DESCRICAO'
              Width = 375
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MES'
              Width = 66
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ANO'
              Width = 66
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'STATUS'
              Width = 67
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'VALOR'
              Width = 65
              Visible = True
            end>
        end
      end
    end
    object ts1: TTabSheet
      Caption = 'HIST'#211'RICO'
      ImageIndex = 2
      object JvDBGrid1: TJvDBGrid
        Left = 0
        Top = 41
        Width = 731
        Height = 304
        Align = alClient
        DataSource = ds2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        SelectColumnsDialogStrings.Caption = 'Select columns'
        SelectColumnsDialogStrings.OK = '&OK'
        SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
        EditControls = <>
        RowsHeight = 17
        TitleRowHeight = 17
        Columns = <
          item
            Expanded = False
            FieldName = 'NOME_PROPRIETARIO'
            Title.Caption = 'Propriet'#225'rio'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NOME_INQUILINO'
            Title.Caption = 'Inquilino'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DATA_LOCA'
            Title.Caption = 'Data Loca'#231'.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DATA_CCONT'
            Title.Caption = 'Data Venc.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DATA_MOV'
            Title.Caption = 'Data Movim.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'HISTORICO'
            Title.Caption = 'Hist'#243'rico'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR_LOCAANT'
            Title.Caption = 'Alug. Ant.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR_REAJUSTE'
            Title.Caption = 'Ind.'
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR_LOCAATU'
            Title.Caption = 'Alug. Atu.'
            Visible = True
          end>
      end
      object pnl3: TPanel
        Left = 0
        Top = 0
        Width = 731
        Height = 41
        Align = alTop
        TabOrder = 1
        object BitBtn13: TBitBtn
          Left = 6
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Excluir'
          TabOrder = 0
          OnClick = BitBtn13Click
        end
        object BitBtn14: TBitBtn
          Left = 86
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Imprimir'
          PopupMenu = pm1
          TabOrder = 1
          OnClick = BitBtn14Click
        end
      end
    end
    object ts2: TTabSheet
      Caption = 'DEPENDENTES'
      ImageIndex = 3
      object pnl2: TPanel
        Left = 0
        Top = 37
        Width = 731
        Height = 308
        Align = alClient
        Caption = 'pnl1'
        TabOrder = 0
        object JvDBGrid2: TJvDBGrid
          Left = 1
          Top = 1
          Width = 729
          Height = 306
          Align = alClient
          BorderStyle = bsNone
          DataSource = dsDtrsc
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          BevelKind = bkFlat
          AutoSizeColumns = True
          SelectColumnsDialogStrings.Caption = 'Select columns'
          SelectColumnsDialogStrings.OK = '&OK'
          SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
          EditControls = <>
          RowsHeight = 17
          TitleRowHeight = 17
          Columns = <
            item
              Expanded = False
              FieldName = 'NOME_DEP'
              Title.Caption = 'Nome Dependente'
              Width = 482
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DATA_NASC'
              Title.Caption = 'Data Nasc.'
              Width = 92
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'GRAU_PARENTESCO'
              Title.Caption = 'Grau Parent.'
              Width = 97
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'IRRF'
              Width = 38
              Visible = True
            end>
        end
      end
      object pnl1: TPanel
        Left = 0
        Top = 0
        Width = 731
        Height = 37
        Align = alTop
        TabOrder = 1
        object BitBtn10: TBitBtn
          Left = 7
          Top = 7
          Width = 75
          Height = 25
          Caption = 'Incluir'
          TabOrder = 0
          OnClick = BitBtn10Click
        end
        object BitBtn11: TBitBtn
          Left = 85
          Top = 7
          Width = 75
          Height = 25
          Caption = 'Excluir'
          TabOrder = 1
        end
        object BitBtn12: TBitBtn
          Left = 164
          Top = 7
          Width = 75
          Height = 25
          Caption = 'Alterar'
          TabOrder = 2
          OnClick = BitBtn12Click
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'ULTIMAS PARCELAS'
      ImageIndex = 4
      object Label13: TLabel
        Left = 304
        Top = 192
        Width = 110
        Height = 13
        Caption = 'Ultimos 5 Lan'#231'amnetos'
      end
      object Label23: TLabel
        Left = 280
        Top = 8
        Width = 91
        Height = 13
        Caption = 'Ultimo Lan'#231'amento'
      end
      object DBGrid1: TDBGrid
        Left = 29
        Top = 24
        Width = 657
        Height = 161
        DataSource = dsP
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Visible = False
        Columns = <
          item
            Expanded = False
            FieldName = 'COD_CONTAS'
            Title.Caption = 'Cod.'
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRICAO'
            Title.Caption = 'Descri'#231#227'o'
            Width = 174
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PARCELA'
            Title.Caption = 'Parcela'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR'
            Title.Caption = 'Valor'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VENCIMENTO'
            Title.Caption = 'Vencimento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'STATUS'
            Title.Caption = 'Status'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ANO'
            Title.Caption = 'Ano'
            Visible = True
          end>
      end
      object DBGrid2: TDBGrid
        Left = 32
        Top = 210
        Width = 657
        Height = 124
        DataSource = dsI
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Visible = False
        Columns = <
          item
            Expanded = False
            FieldName = 'COD_CONTAS'
            Title.Caption = 'Cod.'
            Width = 55
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRICAO'
            Title.Caption = 'Descri'#231#227'o'
            Width = 198
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PARCELA'
            Title.Caption = 'Parcela'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR'
            Title.Caption = 'Valor'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VENCIMENTO'
            Title.Caption = 'Vencimento'
            Width = 85
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'STATUS'
            Title.Caption = 'Status'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ANO'
            Title.Caption = 'Ano'
            Width = 71
            Visible = True
          end>
      end
    end
  end
  inherited Panel2: TPanel [3]
    Top = 414
    Width = 739
    Height = 46
    BevelOuter = bvRaised
    inherited btnSair: TBitBtn
      Left = 506
      Top = 6
      Width = 90
      Height = 37
    end
    inherited btnCancelar: TBitBtn
      Left = 324
      Top = 6
      Width = 90
      Height = 37
    end
    inherited btnexcluir: TBitBtn
      Left = 324
      Top = 6
      Width = 90
      Height = 37
    end
    inherited btngravar: TBitBtn
      Left = 233
      Top = 6
      Width = 90
      Height = 37
    end
    inherited btnIncluir: TBitBtn
      Left = 233
      Top = 6
      Width = 90
      Height = 37
    end
    inherited btnProcurar: TBitBtn
      Left = 142
      Top = 6
      Width = 90
      Height = 37
      OnClick = btnProcurarClick
    end
    object BitBtn4: TBitBtn
      Left = 415
      Top = 6
      Width = 90
      Height = 37
      Hint = 'Procurar'
      Caption = '&Foto'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn4Click
      Glyph.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C000000000000000000000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C07C7D81000206000100000100000006030009837E7FC0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C00404040000000202020000000000000505050000000303
        0301010100000002010382818AB8B6BCC8C5C0C9C6C1C0C1C5C0BEC4827B7E04
        0000000001000306000001030002000003C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0030303BFBFBF7B7B7B8383838686867D7D7D7E7E7E8080808181
        81878787010101C0BDBFC5BDC70B00080B0000070200000200000100C5C0C9C3
        BBC502050374787382807F8A8888000004000004C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0000000000000C3C3C38181818080807D7D7D8585858181817E7E7E8282
        82000000C3C3C38380820400040500010900000C02001A0A001000000A000780
        7D86BDBEBC070A017D7F797C7D7B828185BFBEC2020000C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080808282828383837E7E7E7A7A7A0000
        00858585C2C2C200000000020100020000040016060052130B3A000012000000
        0405BCC1BF777E7700040082868083827EC0BCBB0A0506C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080807E7E7E7979798787870808080101
        01BDBDBD0000000001010006030003000008001202004E030069150324000009
        0000050303C1C3C30001007B817C7E807AC5C5BF040000C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080808181818383830000000000000000
        00C1C1C10202020000000200000001000001010C04003C09006A250040060025
        0000100004C2BAC504030D787B7F848B84BBC3B8000300C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080808383837F7F7F0000000505050606
        06BDBDBD0000000402010704000200000000061A0B00430F00FFC37A55190327
        0000150009C1B6C603000E7576807C817FBAC2B7000600C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080807F7F7F8181810101010000000000
        00C1C1C101010100010000030001040200000A2000007C2C00FFB96330050013
        000C090004C5BDC704000D8782917B7B81BCC0BB050C00C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080807A7A7A8787870000000505050000
        00C1C1C10000000102000003000C0A02120000300000FFC27780330020010004
        00070B0407C2BDBF00000678798381838BBEC0C1020200C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080808686868080800000000202020000
        007A7A7AC5C5C50001000201001202004E2106F6BA9660220035050015010008
        0302CABEBC86827D000400778780767D80BAB7C00C0009C0C0C0C0C0C0C0C0C0
        000000BFBFBF010101BFBFBF8181818080807B7B7B8080800808080000007E7E
        7E060606BBBBBB8684840602011505002E05003704002901001C01000B010083
        7F7ACBC2BE04020075837776877C7A8282C3C0C90B0007C0C0C0C0C0C0C0C0C0
        030303C0C0C0000000C5C5C58080807F7F7F8181817D7D7D0000007F7F7F0505
        058080807B7B7BC2C2C2C7C5C50501001203001202000E0000090000C2BEBDC2
        C0BF04000082807F7C827D7C817F7F8181BDBCBE040003C0C0C0C0C0C0C0C0C0
        000000BDBDBD070707C1C1C17B7B7B8282828080808383837B7B7B0707077676
        76868686BFBFBFFFFFFFF8F8F8C5C5C5B9B9B9C3C3C3C2C2C2BEBEBE85858500
        00007F7F7F8484848080807676768B8B8BC1C1C1020202C0C0C0C0C0C0C0C0C0
        000000C2C2C20000000000000101010000000000000000000606060000000202
        02C1C1C1BABABABEBEBEFFFFFFFFFFFFFFFFFFFDFDFDFFFFFF7E7E7E00000000
        0000010101000000040404060606000000000000000000C0C0C0C0C0C0C0C0C0
        0101010303037C7C7CC1C1C1C5C5C5BFBFBFC0C0C0C7C7C7BABABAC1C1C1C1C1
        C1000000070707FFFFFFC3C3C3BABABAC2C2C2BEBEBE000000000000C5C5C5C3
        C3C3BFBFBFC3C3C3BEBEBEBBBBBBC4C4C4FFFFFF000000C0C0C0C0C0C0C0C0C0
        0101017B7B7B828282C2C2C2BDBDBDBDBDBDC3C3C3B8B8B8C0C0C0C8C8C8BBBB
        BBBDBDBDC0C0C0000000000000000000000000050505C5C5C5C1C1C1C2C2C2BA
        BABABDBDBDC2C2C2C3C3C3BFBFBFBFBFBFFFFFFF000000C0C0C0C0C0C0C0C0C0
        0000007F7F7F7B7B7BC1C1C1C3C3C3C2C2C2C0C0C0C7C7C7BEBEBEBCBCBCC1C1
        C1C6C6C6C4C4C4C0C0C0C0C0C0BEBEBEC7C7C7BBBBBBB7B7B7C0C0C0BCBCBCC6
        C6C6C1C1C1C2C2C2BDBDBDC1C1C1C3C3C3FDFDFD000000C0C0C0C0C0C0C0C0C0
        010101818181C5C5C5FBFBFBFFFFFFFDFDFDFFFFFFFCFCFCFDFDFDFFFFFFFFFF
        FFF8F8F8F9F9F9FFFFFFFFFFFFFAFAFAFDFDFDFFFFFFFFFFFFFFFFFFFEFEFEFF
        FFFFFFFFFFFAFAFAFFFFFFFEFEFEFDFDFD030303C0C0C0C0C0C0C0C0C0C0C0C0
        000000BCBCBCC2C2C2818181000000010101000000010101000000BFBFBF8080
        80000000060606000000000000030303010101000000010101BFBFBFC1C1C180
        8080000000000000040404C1C1C1000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0020202030303000000808080FFFFFFF7F7F7FFFFFF0101010000000707
        07000000C0C0C0C0C0C0BFBFBFC6C6C6BEBEBEC0C0C001010100000001010100
        0000808080FEFEFE010101010101C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C08A8A8A000000010101060606000000C0C0C0C0C0C00000
        00848484000000C1C1C1BDBDBDBBBBBBBCBCBC050505C0C0C0C0C0C0C0C0C07E
        7E7E000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0000000858585FFFFFFFFFFFFFFFFFF050505C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
    end
    object BitBtn5: TBitBtn
      Left = 416
      Top = -78
      Width = 90
      Height = 37
      Hint = 'Procurar'
      Caption = '&Despesas'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      Glyph.Data = {
        36080000424D3608000000000000360400002800000020000000200000000100
        0800000000000004000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00090909001212
        12001F1F1F002C2C2C003939390045454500525252005F5F5F006C6C6C007878
        780085858500929292009F9F9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDE
        DE00EBEBEB00F8F8F800F0FBFF00A4A0A000C0DCC000F0CAA60000003E000000
        5D0000007C0000009B000000BA000000D9000000F0002424FF004848FF006C6C
        FF009090FF00B4B4FF0000143E00001E5D0000287C0000329B00003CBA000046
        D9000055F000246DFF004885FF006C9DFF0090B5FF00B4CDFF00002A3E00003F
        5D0000547C0000699B00007EBA000093D90000AAF00024B6FF0048C2FF006CCE
        FF0090DAFF00B4E6FF00003E3E00005D5D00007C7C00009B9B0000BABA0000D9
        D90000F0F00024FFFF0048FFFF006CFFFF0090FFFF00B4FFFF00003E2A00005D
        3F00007C5400009B690000BA7E0000D9930000F0AA0024FFB60048FFC2006CFF
        CE0090FFDA00B4FFE600003E1400005D1E00007C2800009B320000BA3C0000D9
        460000F0550024FF6D0048FF85006CFF9D0090FFB500B4FFCD00003E0000005D
        0000007C0000009B000000BA000000D9000000F0000024FF240048FF48006CFF
        6C0090FF9000B4FFB400143E00001E5D0000287C0000329B00003CBA000046D9
        000055F000006DFF240085FF48009DFF6C00B5FF9000CDFFB4002A3E00003F5D
        0000547C0000699B00007EBA000093D90000AAF00000B6FF2400C2FF4800CEFF
        6C00DAFF9000E6FFB4003E3E00005D5D00007C7C00009B9B0000BABA0000D9D9
        0000F0F00000FFFF2400FFFF4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F
        00007C5400009B690000BA7E0000D9930000F0AA0000FFB62400FFC24800FFCE
        6C00FFDA9000FFE6B4003E1400005D1E00007C2800009B320000BA3C0000D946
        0000F0550000FF6D2400FF854800FF9D6C00FFB59000FFCDB4003E0000005D00
        00007C0000009B000000BA000000D9000000F0000000FF242400FF484800FF6C
        6C00FF909000FFB4B4003E0014005D001E007C0028009B003200BA003C00D900
        4600F0005500FF246D00FF488500FF6C9D00FF90B500FFB4CD003E002A005D00
        3F007C0054009B006900BA007E00D9009300F000AA00FF24B600FF48C200FF6C
        CE00FF90DA00FFB4E6003E003E005D005D007C007C009B009B00BA00BA00D900
        D900F000F000FF24FF00FF48FF00FF6CFF00FF90FF00FFB4FF002A003E003F00
        5D0054007C0069009B007E00BA009300D900AA00F000B624FF00C248FF00CE6C
        FF00DA90FF00E6B4FF0014003E001E005D0028007C0032009B003C00BA004600
        D9005500F0006D24FF008548FF009D6CFF00B590FF00CDB4FF001F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F000000000000
        0000001F1F0000000000000000001F1F0000000000000000001F00A7A7A7A7A7
        A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
        A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
        A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
        A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
        A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
        A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
        A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F000000000000
        0000001F1F0000000000000000001F1F0000000000000000001F1F1F1F1F1F1F
        1F1F1F001F1F1F1F1F001F1F1F1F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F001F1F1F1F001F1F1F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F001F1F1F001F1F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F001F1F001F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0000000000000000000000000000000000001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202020202020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202000000020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020200020002000202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020002020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202020002000202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202000000020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020200020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020002020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020002020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020200020002000202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202000000020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0020202020202020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F0000000000000000000000000000000000001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F}
    end
    object BitBtn9: TBitBtn
      Left = 325
      Top = -65
      Width = 90
      Height = 37
      Caption = 'Canc.Loc.'
      TabOrder = 8
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        000000000000000007777777777777778FFFFF3BBB0FFFF70777777000000000
        8FFFFF3BBB0FFFF707777778777777778FFFFF3BBB0FFFF707777778FFFFFFFF
        8FFFFF3BBB0FFFF707777778FFFFFFFF8FFFFF3BBB0FFFF707777778FFFFFFFF
        8FFFFF33333FFFF707777778FFFFFFFF8FFFFFFFFFFFFFF707777778FFFFFFFF
        8FFFFFFFFFFFFFF707777778FFFFFFF0007FFFFFFFFFFF7000777778FFFFFFF3
        BB07FFFFFFFFF70BB07777887FFFFFFF3BB0777FFFFF70BB077779998FFFFFFF
        F3B7998FFFF70BB07777799987FFFFFFFF79997FFF70BB007777789998FFFFFF
        F7999B07F70BB09077777789998FFFFF89973BB070BB0190777777759997FFF7
        997FF3BB0BB071907777777859987F7997FFFF3BBB00719077777778F8999899
        7FFFFFF3B070719077777778FF899997FFFFFFFF3F70711077777778FFF99997
        FFFFFFFFFF70777777777778FF8999998FFFFFFFFF70777777777778F7998799
        987FFFFFFF707777777777787998FF799987FF800000777777777778998FFFFF
        59987F8F780777777777777995FFFFFFF8999787807777777777789957FFFFFF
        FF79978807777777777789997FFFFFFFFFFFFF80777777777777999788888888
        8888888777777777777799777777777777777777777777777777}
    end
  end
  inherited DtSrc: TDataSource
    DataSet = DM.cds_imo_aluguel
    Left = 681
    Top = 8
  end
  object EvExtenso1: TEvExtenso
    Currency.Strings = (
      'real'
      'reais'
      'centavo'
      'centavos')
    Left = 648
    Top = 8
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 616
    Top = 8
  end
  object sFinac: TSQLDataSet
    CommandText = 
      'select lanc.SELECIONOU,'#13#10'          lanc.COD_LANCAMENTO,'#13#10'       ' +
      '   lanc.COD_FIXOS, '#13#10'          lanc.COD_IMALU, '#13#10'          lanc.' +
      'COD_CONTAS, '#13#10'          lanc.VALOR, '#13#10'          lanc.VALOR_TOTAL' +
      ', '#13#10'          lanc.PARCELA, '#13#10'          udf_MonthName(lanc.VENCI' +
      'MENTO) as mesparcela, '#13#10'          lanc.VENCIMENTO,'#13#10'          la' +
      'nc.COD_INQUILINO, '#13#10'          lanc.COD_MOVIMENTO, '#13#10'          la' +
      'nc.COD_PROPRIETARIO, '#13#10'          lanc.VIA, '#13#10'          lanc.GRUP' +
      'O, '#13#10'          lanc.TIPOCONTA, '#13#10'          lanc.STATUS, '#13#10'      ' +
      '    lanc.FORMAPGTO_RECEBTO, '#13#10'          lanc.N_DOCUMENTO,'#13#10'     ' +
      '     c.DESCRICAO as CONTA '#13#10' from LANCAMENTOS lanc  '#13#10' left join' +
      ' PROPRIETARIOS p '#13#10' on p.COD_PROPRIETARIO =  lanc.COD_PROPRIETAR' +
      'IO '#13#10' left join PLANO_CONTAS c'#13#10' on c.COD_CONTAS =  lanc.COD_CON' +
      'TAS '#13#10' where COD_IMALU = :id '
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 244
    Top = 313
    object sFinacCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object sFinacCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object sFinacCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object sFinacCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object sFinacVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object sFinacVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object sFinacPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object sFinacMESPARCELA: TStringField
      FieldName = 'MESPARCELA'
      ReadOnly = True
      FixedChar = True
      Size = 15
    end
    object sFinacVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ReadOnly = True
    end
    object sFinacCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ReadOnly = True
    end
    object sFinacCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ReadOnly = True
    end
    object sFinacCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ReadOnly = True
    end
    object sFinacVIA: TStringField
      FieldName = 'VIA'
      ReadOnly = True
      Size = 2
    end
    object sFinacGRUPO: TStringField
      FieldName = 'GRUPO'
      ReadOnly = True
    end
    object sFinacTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ReadOnly = True
      Size = 10
    end
    object sFinacSTATUS: TStringField
      FieldName = 'STATUS'
      ReadOnly = True
      Size = 10
    end
    object sFinacFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ReadOnly = True
      Size = 30
    end
    object sFinacN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ReadOnly = True
      Size = 40
    end
    object sFinacCONTA: TStringField
      FieldName = 'CONTA'
      ReadOnly = True
      Size = 60
    end
    object sFinacSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
  end
  object pFinac: TDataSetProvider
    DataSet = sFinac
    Left = 284
    Top = 313
  end
  object cFinac: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'pFinac'
    Left = 316
    Top = 313
    object cFinacCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object cFinacCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object cFinacCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cFinacCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cFinacVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object cFinacVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object cFinacPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object cFinacMESPARCELA: TStringField
      FieldName = 'MESPARCELA'
      ReadOnly = True
      FixedChar = True
      Size = 15
    end
    object cFinacVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ReadOnly = True
    end
    object cFinacCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ReadOnly = True
    end
    object cFinacCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ReadOnly = True
    end
    object cFinacCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ReadOnly = True
    end
    object cFinacVIA: TStringField
      FieldName = 'VIA'
      ReadOnly = True
      Size = 2
    end
    object cFinacGRUPO: TStringField
      FieldName = 'GRUPO'
      ReadOnly = True
    end
    object cFinacTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ReadOnly = True
      Size = 10
    end
    object cFinacSTATUS: TStringField
      FieldName = 'STATUS'
      ReadOnly = True
      Size = 10
    end
    object cFinacFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ReadOnly = True
      Size = 30
    end
    object cFinacN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ReadOnly = True
      Size = 40
    end
    object cFinacCONTA: TStringField
      FieldName = 'CONTA'
      ReadOnly = True
      Size = 60
    end
    object cFinacSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
  end
  object dFinac: TDataSource
    DataSet = cFinac
    Left = 388
    Top = 281
  end
  object ImageList1: TImageList
    Left = 458
    Top = 288
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000848284008482840000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000008482
      84003CBA00003CBA000084828400000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000002C07
      AD00342176000000000000000000000000000000000000000000000000000000
      0000C2C2EC002104860000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000003CBA
      00003CBA00003CBA00003CBA0000848284000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000002400
      C3003204C800787B8F0000000000000000000000000000000000000000003A1F
      A0001E00A5000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000848284003CBA
      00003CBA00003CBA00003CBA00003CBA00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000007565
      CB002400BE00271286009499A8000000000000000000000000008168DB002A08
      AD00A39ADE000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000848284003CBA00003CBA
      000000F055003CBA00003CBA00003CBA00008482840000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000002600B70038219900BDC3C40000000000370CAF002A06AD000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000003CBA00003CBA000000F0
      55000000000000F055003CBA00003CBA00008482840000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000006349C7002500B2003C3387007257D6003107AE00B1A4E2000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000F055003CBA00000000
      0000000000000000000000F055003CBA00003CBA000084828400000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000002200DB002901D40099A2B200000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000F055000000
      000000000000000000000000000000F055003CBA00003CBA0000848284000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000007E66DF002902D3002C00DF00352E7400909597000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000003CBA00003CBA00003CBA00008482
      8400000000000000000000000000000000000000000000000000000000000000
      0000000000002D0CAA002D04B10000000000000000003710AD00310F9E006162
      8400000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000F055003CBA00003CBA00003CBA
      0000848284000000000000000000000000000000000000000000000000000000
      00007C67DF002603B5007566C2000000000000000000000000005234B8002F14
      A100464A79000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000F055003CBA00003CBA
      00003CBA00000000000000000000000000000000000000000000000000002C0A
      AF002D04BF00C4C1F3000000000000000000000000000000000000000000B19C
      F7001B0097000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000F055003CBA
      00003CBA00008482840000000000000000000000000000000000846BE3002D00
      D1003D24AA000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000000000F0
      55003CBA000084828400000000000000000000000000000000003D21B900917F
      DE00000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000F055003CBA000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFF00000000F3FFFFFF00000000
      E1FFE7F300000000E0FFE3E700000000C0FFE1C700000000807FF89F00000000
      887FF81F000000009C3FFE3F00000000DE1FFC1F00000000FF0FF98F00000000
      FF07F1C700000000FF87E3E700000000FFC3C7FF00000000FFE3CFFF00000000
      FFF3FFFF00000000FFFFFFFF0000000000000000000000000000000000000000
      000000000000}
  end
  object s_hist: TSQLDataSet
    CommandText = 
      'select hi.*, '#13#10'           pro.NOME_PROPRIETARIO, '#13#10'           in' +
      'q.NOME_INQUILINO '#13#10'  from HIST_IMOVEL hi '#13#10'inner join  PROPRIETA' +
      'RIOS pro on pro.COD_PROPRIETARIO = hi.ID_PROPRIETARIO  '#13#10'inner j' +
      'oin  INQUILINOS inq on inq.COD_INQUILINO = hi.ID_INQUILINO'#13#10'wher' +
      'e ID_IMOVEL = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 260
    Top = 153
  end
  object d_hist: TDataSetProvider
    DataSet = s_hist
    Left = 300
    Top = 153
  end
  object ds_hist: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'd_hist'
    Left = 340
    Top = 153
    object ds_histID: TIntegerField
      FieldName = 'ID'
      ProviderFlags = []
    end
    object ds_histID_IMOVEL: TIntegerField
      FieldName = 'ID_IMOVEL'
      ProviderFlags = []
    end
    object ds_histID_PROPRIETARIO: TIntegerField
      FieldName = 'ID_PROPRIETARIO'
      ProviderFlags = []
    end
    object ds_histID_INQUILINO: TIntegerField
      FieldName = 'ID_INQUILINO'
      ProviderFlags = []
    end
    object ds_histDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
      ProviderFlags = []
    end
    object ds_histDATA_CCONT: TDateField
      FieldName = 'DATA_CCONT'
      ProviderFlags = []
    end
    object ds_histHISTORICO: TStringField
      FieldName = 'HISTORICO'
      ProviderFlags = []
      Size = 60
    end
    object ds_histVALOR_LOCAANT: TFloatField
      FieldName = 'VALOR_LOCAANT'
      ProviderFlags = []
      DisplayFormat = '##0.00'
    end
    object ds_histVALOR_REAJUSTE: TFloatField
      FieldName = 'VALOR_REAJUSTE'
      ProviderFlags = []
      DisplayFormat = '##0.00'
    end
    object ds_histVALOR_LOCAATU: TFloatField
      FieldName = 'VALOR_LOCAATU'
      ProviderFlags = []
      DisplayFormat = '##0.00'
    end
    object ds_histDATA_MOV: TDateField
      FieldName = 'DATA_MOV'
    end
    object ds_histNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      Size = 60
    end
    object ds_histNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      Size = 60
    end
  end
  object ds2: TDataSource
    DataSet = ds_hist
    Left = 380
    Top = 153
  end
  object sDep: TSQLDataSet
    CommandText = 'select * from DEPENDENTES '#13#10'where COD_IMALU =:id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 76
    Top = 233
    object sDepID_DEPENDENTES: TIntegerField
      FieldName = 'ID_DEPENDENTES'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sDepCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sDepNOME_DEP: TStringField
      FieldName = 'NOME_DEP'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sDepDATA_NASC: TDateField
      FieldName = 'DATA_NASC'
      ProviderFlags = [pfInUpdate]
    end
    object sDepIRRF: TStringField
      FieldName = 'IRRF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sDepDEP_PERMANENTE: TStringField
      FieldName = 'DEP_PERMANENTE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sDepCURSANDO_FAC: TStringField
      FieldName = 'CURSANDO_FAC'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sDepDEFIC_FISICO: TStringField
      FieldName = 'DEFIC_FISICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sDepGRAU_PARENTESCO: TStringField
      FieldName = 'GRAU_PARENTESCO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object dDepend: TDataSetProvider
    DataSet = sDep
    Left = 108
    Top = 225
  end
  object dsDep: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'dDepend'
    Left = 148
    Top = 217
    object dsDepID_DEPENDENTES: TIntegerField
      FieldName = 'ID_DEPENDENTES'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object dsDepCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object dsDepNOME_DEP: TStringField
      FieldName = 'NOME_DEP'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dsDepDATA_NASC: TDateField
      FieldName = 'DATA_NASC'
      ProviderFlags = [pfInUpdate]
    end
    object dsDepIRRF: TStringField
      FieldName = 'IRRF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dsDepDEP_PERMANENTE: TStringField
      FieldName = 'DEP_PERMANENTE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dsDepCURSANDO_FAC: TStringField
      FieldName = 'CURSANDO_FAC'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dsDepDEFIC_FISICO: TStringField
      FieldName = 'DEFIC_FISICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dsDepGRAU_PARENTESCO: TStringField
      FieldName = 'GRAU_PARENTESCO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object dsDtrsc: TDataSource
    DataSet = dsDep
    Left = 180
    Top = 217
  end
  object dContas: TDataSetProvider
    DataSet = sContas
    Left = 316
    Top = 206
  end
  object dsContas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'dContas'
    Left = 356
    Top = 206
    object dsContasVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '##0.00'
    end
    object dsContasTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object dsContasDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object dsContasIRRF: TStringField
      FieldName = 'IRRF'
      FixedChar = True
      Size = 1
    end
    object dsContasMES: TIntegerField
      FieldName = 'MES'
    end
    object dsContasANO: TIntegerField
      FieldName = 'ANO'
    end
    object dsContasSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
  end
  object dstContas: TDataSource
    DataSet = dsContas
    Left = 388
    Top = 206
  end
  object sContas: TSQLDataSet
    CommandText = 
      'select lanc.VALOR,'#13#10'          lanc.TIPOCONTA, '#13#10'          lanc.M' +
      'ES, '#13#10'          lanc.ANO,'#13#10'          lanc.STATUS,  '#13#10'          c' +
      'on.DESCRICAO, '#13#10'          imo.IRRF from LANCAMENTOS lanc '#13#10'     ' +
      '     inner join PLANO_CONTAS con  on con.COD_CONTAS = lanc.COD_C' +
      'ONTAS'#13#10'          inner join IMOVEL_ALUGUEL imo on imo.COD_IMALU ' +
      '= lanc.COD_IMALU '#13#10'where lanc.COD_IMALU =:id '#13#10'   and lanc.ATIVO' +
      ' = '#39'S'#39
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 284
    Top = 206
  end
  object pm1: TPopupMenu
    Alignment = paCenter
    OwnerDraw = True
    TrackButton = tbLeftButton
    Left = 536
    Top = 169
    object ImpContas: TMenuItem
      Caption = 'Imprimir &Hist'#243'rico'
    end
    object Recibo: TMenuItem
      Caption = 'Ficha Financeira'
    end
  end
  object cdsP: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pImalu'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pInq'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pProp'
        ParamType = ptInput
      end>
    ProviderName = 'dspP'
    Left = 556
    Top = 209
    object cdsPDESCRICAO: TStringField
      DisplayWidth = 26
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object cdsPIRRF: TStringField
      DisplayWidth = 5
      FieldName = 'IRRF'
      FixedChar = True
      Size = 1
    end
    object cdsPCOD_LANCAMENTO: TIntegerField
      DisplayWidth = 21
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object cdsPCOD_FIXOS: TIntegerField
      DisplayWidth = 12
      FieldName = 'COD_FIXOS'
    end
    object cdsPCOD_IMALU: TIntegerField
      DisplayWidth = 13
      FieldName = 'COD_IMALU'
    end
    object cdsPCOD_CONTAS: TIntegerField
      DisplayWidth = 15
      FieldName = 'COD_CONTAS'
    end
    object cdsPQUTDE: TIntegerField
      DisplayWidth = 12
      FieldName = 'QUTDE'
    end
    object cdsPVALOR: TFloatField
      DisplayWidth = 12
      FieldName = 'VALOR'
    end
    object cdsPVALOR_TOTAL: TFloatField
      DisplayWidth = 16
      FieldName = 'VALOR_TOTAL'
    end
    object cdsPDESCRICAO_1: TStringField
      DisplayWidth = 60
      FieldName = 'DESCRICAO_1'
      Size = 50
    end
    object cdsPPARCELA: TIntegerField
      DisplayWidth = 12
      FieldName = 'PARCELA'
    end
    object cdsPVENCIMENTO: TDateField
      DisplayWidth = 14
      FieldName = 'VENCIMENTO'
    end
    object cdsPDATA_LANC: TDateField
      DisplayWidth = 13
      FieldName = 'DATA_LANC'
    end
    object cdsPCOD_INQUILINO: TIntegerField
      DisplayWidth = 17
      FieldName = 'COD_INQUILINO'
    end
    object cdsPCOD_MOVIMENTO: TIntegerField
      DisplayWidth = 19
      FieldName = 'COD_MOVIMENTO'
    end
    object cdsPCOD_PROPRIETARIO: TIntegerField
      DisplayWidth = 22
      FieldName = 'COD_PROPRIETARIO'
    end
    object cdsPVIA: TStringField
      DisplayWidth = 4
      FieldName = 'VIA'
      Size = 2
    end
    object cdsPGRUPO: TStringField
      DisplayWidth = 24
      FieldName = 'GRUPO'
    end
    object cdsPTIPOCONTA: TStringField
      DisplayWidth = 13
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object cdsPSTATUS: TStringField
      DisplayWidth = 12
      FieldName = 'STATUS'
      Size = 10
    end
    object cdsPFORMAPGTO_RECEBTO: TStringField
      DisplayWidth = 36
      FieldName = 'FORMAPGTO_RECEBTO'
      Size = 30
    end
    object cdsPN_DOCUMENTO: TStringField
      DisplayWidth = 48
      FieldName = 'N_DOCUMENTO'
      Size = 40
    end
    object cdsPDATAPAGTO: TDateField
      DisplayWidth = 13
      FieldName = 'DATAPAGTO'
    end
    object cdsPSELECIONOU: TStringField
      DisplayWidth = 14
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
    object cdsPVALORPAGO: TFloatField
      DisplayWidth = 13
      FieldName = 'VALORPAGO'
    end
    object cdsPVALORTROCO: TFloatField
      DisplayWidth = 15
      FieldName = 'VALORTROCO'
    end
    object cdsPATIVO: TStringField
      DisplayWidth = 7
      FieldName = 'ATIVO'
      FixedChar = True
      Size = 1
    end
    object cdsPVALORJUROS: TFloatField
      DisplayWidth = 15
      FieldName = 'VALORJUROS'
    end
    object cdsPVALORDESCONTO: TFloatField
      DisplayWidth = 19
      FieldName = 'VALORDESCONTO'
    end
    object cdsPDIA: TIntegerField
      DisplayWidth = 12
      FieldName = 'DIA'
    end
    object cdsPMES: TIntegerField
      DisplayWidth = 12
      FieldName = 'MES'
    end
    object cdsPANO: TIntegerField
      DisplayWidth = 12
      FieldName = 'ANO'
    end
    object cdsPINDICE_REAJ: TFloatField
      DisplayWidth = 14
      FieldName = 'INDICE_REAJ'
    end
    object cdsPIMPRIME_RECIBO: TStringField
      DisplayWidth = 19
      FieldName = 'IMPRIME_RECIBO'
      FixedChar = True
      Size = 1
    end
    object cdsPHISTORICO: TStringField
      DisplayWidth = 120
      FieldName = 'HISTORICO'
      Size = 100
    end
    object cdsPCOD_FORNECEDOR: TIntegerField
      DisplayWidth = 21
      FieldName = 'COD_FORNECEDOR'
    end
    object cdsPCOD_CLIENTE: TIntegerField
      DisplayWidth = 15
      FieldName = 'COD_CLIENTE'
    end
    object cdsPCOD_CAIXA: TIntegerField
      DisplayWidth = 12
      FieldName = 'COD_CAIXA'
    end
    object cdsPCOD_PGTO: TIntegerField
      DisplayWidth = 12
      FieldName = 'COD_PGTO'
    end
    object cdsPVALOR_TITULO: TFloatField
      DisplayWidth = 16
      FieldName = 'VALOR_TITULO'
    end
    object cdsPDATABAIXA: TDateField
      DisplayWidth = 12
      FieldName = 'DATABAIXA'
    end
    object cdsPDATAEMISSAO: TDateField
      DisplayWidth = 16
      FieldName = 'DATAEMISSAO'
    end
    object cdsPCOD_PAI: TIntegerField
      DisplayWidth = 12
      FieldName = 'COD_PAI'
    end
    object cdsPNUMEROBOLETO: TStringField
      DisplayWidth = 24
      FieldName = 'NUMEROBOLETO'
    end
  end
  object dspP: TDataSetProvider
    DataSet = sqlp
    Options = [poAllowCommandText]
    Left = 524
    Top = 209
  end
  object dsP: TDataSource
    DataSet = cdsP
    Left = 604
    Top = 185
  end
  object sqlp: TSQLDataSet
    CommandText = 
      'select first 6'#13#10'    con.descricao,'#13#10'    imo.irrf,'#13#10'    lanc.cod_' +
      'lancamento,'#13#10'    lanc.cod_fixos,'#13#10'    lanc.cod_imalu,'#13#10'    lanc.' +
      'cod_contas,'#13#10'    lanc.qutde,'#13#10'    lanc.valor,'#13#10'    lanc.valor_to' +
      'tal,'#13#10'    lanc.descricao,'#13#10'    lanc.parcela,'#13#10'    lanc.venciment' +
      'o,'#13#10'    lanc.data_lanc,'#13#10'    lanc.cod_inquilino,'#13#10'    lanc.cod_m' +
      'ovimento,'#13#10'    lanc.cod_proprietario,'#13#10'    lanc.via,'#13#10'    lanc.g' +
      'rupo,'#13#10'    lanc.tipoconta,'#13#10'    lanc.status,'#13#10'    lanc.formapgto' +
      '_recebto,'#13#10'    lanc.n_documento,'#13#10'    lanc.datapagto,'#13#10'    lanc.' +
      'selecionou,'#13#10'    lanc.valorpago,'#13#10'    lanc.valortroco,'#13#10'    lanc' +
      '.ativo,'#13#10'    lanc.valorjuros,'#13#10'    lanc.valordesconto,'#13#10'    lanc' +
      '.dia,'#13#10'    lanc.mes,'#13#10'    lanc.ano,'#13#10'    lanc.indice_reaj,'#13#10'    ' +
      'lanc.imprime_recibo,'#13#10'    lanc.historico,'#13#10'    lanc.cod_forneced' +
      'or,'#13#10'    lanc.cod_cliente,'#13#10'    lanc.cod_caixa,'#13#10'    lanc.cod_pg' +
      'to,'#13#10'    lanc.valor_titulo,'#13#10'    lanc.databaixa,'#13#10'    lanc.datae' +
      'missao,'#13#10'    lanc.cod_pai,'#13#10'    lanc.numeroboleto'#13#10'from lancamen' +
      'tos lanc'#13#10'   inner join plano_contas con on (lanc.cod_contas = c' +
      'on.cod_contas)'#13#10'   inner join imovel_aluguel imo on (lanc.cod_im' +
      'alu = imo.cod_imalu)'#13#10'where'#13#10'   ('#13#10'      (lanc.cod_imalu = :pIma' +
      'lu)'#13#10'   and'#13#10'      (lanc.cod_inquilino = :pInq)'#13#10'   and'#13#10'      (' +
      'lanc.cod_proprietario = :pProp) '#13#10'and'#13#10'      (lanc.grupo = '#39'Prop' +
      'rietario'#39')'#13#10'   and'#13#10'      (lanc.ativo = '#39'S'#39')'#13#10'   and'#13#10'      (con' +
      '.receita_despesa in ('#39'Receita'#39', '#39'Despesa'#39', '#39'Aviso'#39'))'#13#10'   and'#13#10'  ' +
      '    (lanc.cod_contas <> 30)'#13#10'   and'#13#10'      (lanc.cod_contas <> 3' +
      '8)'#13#10'   and'#13#10'      (lanc.ativo = '#39'S'#39')'#13#10'   )'#13#10'order by parcela des' +
      'c'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'pImalu'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'pInq'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'pProp'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 484
    Top = 217
    object sqlpDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object sqlpIRRF: TStringField
      FieldName = 'IRRF'
      FixedChar = True
      Size = 1
    end
    object sqlpCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object sqlpCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object sqlpCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object sqlpCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object sqlpQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object sqlpVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object sqlpVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object sqlpDESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      Size = 50
    end
    object sqlpPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object sqlpVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object sqlpDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
    end
    object sqlpCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object sqlpCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
    end
    object sqlpCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object sqlpVIA: TStringField
      FieldName = 'VIA'
      Size = 2
    end
    object sqlpGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object sqlpTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object sqlpSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object sqlpFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      Size = 30
    end
    object sqlpN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      Size = 40
    end
    object sqlpDATAPAGTO: TDateField
      FieldName = 'DATAPAGTO'
    end
    object sqlpSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
    object sqlpVALORPAGO: TFloatField
      FieldName = 'VALORPAGO'
    end
    object sqlpVALORTROCO: TFloatField
      FieldName = 'VALORTROCO'
    end
    object sqlpATIVO: TStringField
      FieldName = 'ATIVO'
      FixedChar = True
      Size = 1
    end
    object sqlpVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
    end
    object sqlpVALORDESCONTO: TFloatField
      FieldName = 'VALORDESCONTO'
    end
    object sqlpDIA: TIntegerField
      FieldName = 'DIA'
    end
    object sqlpMES: TIntegerField
      FieldName = 'MES'
    end
    object sqlpANO: TIntegerField
      FieldName = 'ANO'
    end
    object sqlpINDICE_REAJ: TFloatField
      FieldName = 'INDICE_REAJ'
    end
    object sqlpIMPRIME_RECIBO: TStringField
      FieldName = 'IMPRIME_RECIBO'
      FixedChar = True
      Size = 1
    end
    object sqlpHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 100
    end
    object sqlpCOD_FORNECEDOR: TIntegerField
      FieldName = 'COD_FORNECEDOR'
    end
    object sqlpCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
    end
    object sqlpCOD_CAIXA: TIntegerField
      FieldName = 'COD_CAIXA'
    end
    object sqlpCOD_PGTO: TIntegerField
      FieldName = 'COD_PGTO'
    end
    object sqlpVALOR_TITULO: TFloatField
      FieldName = 'VALOR_TITULO'
    end
    object sqlpDATABAIXA: TDateField
      FieldName = 'DATABAIXA'
    end
    object sqlpDATAEMISSAO: TDateField
      FieldName = 'DATAEMISSAO'
    end
    object sqlpCOD_PAI: TIntegerField
      FieldName = 'COD_PAI'
    end
    object sqlpNUMEROBOLETO: TStringField
      FieldName = 'NUMEROBOLETO'
    end
  end
  object sqlI: TSQLDataSet
    CommandText = 
      'select first 5'#13#10'    con.descricao,'#13#10'    imo.irrf,'#13#10'    lanc.cod_' +
      'lancamento,'#13#10'    lanc.cod_fixos,'#13#10'    lanc.cod_imalu,'#13#10'    lanc.' +
      'cod_contas,'#13#10'    lanc.qutde,'#13#10'    lanc.valor,'#13#10'    lanc.valor_to' +
      'tal,'#13#10'    lanc.descricao,'#13#10'    lanc.parcela,'#13#10'    lanc.venciment' +
      'o,'#13#10'    lanc.data_lanc,'#13#10'    lanc.cod_inquilino,'#13#10'    lanc.cod_m' +
      'ovimento,'#13#10'    lanc.cod_proprietario,'#13#10'    lanc.via,'#13#10'    lanc.g' +
      'rupo,'#13#10'    lanc.tipoconta,'#13#10'    lanc.status,'#13#10'    lanc.formapgto' +
      '_recebto,'#13#10'    lanc.n_documento,'#13#10'    lanc.datapagto,'#13#10'    lanc.' +
      'selecionou,'#13#10'    lanc.valorpago,'#13#10'    lanc.valortroco,'#13#10'    lanc' +
      '.ativo,'#13#10'    lanc.valorjuros,'#13#10'    lanc.valordesconto,'#13#10'    lanc' +
      '.dia,'#13#10'    lanc.mes,'#13#10'    lanc.ano,'#13#10'    lanc.indice_reaj,'#13#10'    ' +
      'lanc.imprime_recibo,'#13#10'    lanc.historico,'#13#10'    lanc.cod_forneced' +
      'or,'#13#10'    lanc.cod_cliente,'#13#10'    lanc.cod_caixa,'#13#10'    lanc.cod_pg' +
      'to,'#13#10'    lanc.valor_titulo,'#13#10'    lanc.databaixa,'#13#10'    lanc.datae' +
      'missao,'#13#10'    lanc.cod_pai,'#13#10'    lanc.numeroboleto'#13#10'from lancamen' +
      'tos lanc'#13#10'   inner join plano_contas con on (lanc.cod_contas = c' +
      'on.cod_contas)'#13#10'   inner join imovel_aluguel imo on (lanc.cod_im' +
      'alu = imo.cod_imalu)'#13#10'where'#13#10'   ('#13#10'      (lanc.cod_imalu = :pIma' +
      'lu)'#13#10'   and'#13#10'      (lanc.cod_inquilino = :pInq)'#13#10'   and'#13#10'      (' +
      'lanc.cod_proprietario = :pProp)'#13#10'   and'#13#10'      (lanc.grupo = '#39'In' +
      'quilino'#39')'#13#10'   and'#13#10'      (lanc.ativo = '#39'S'#39')'#13#10'   and'#13#10'      (con.' +
      'receita_despesa in ('#39'Receita'#39', '#39'Despesa'#39', '#39'Aviso'#39'))'#13#10'   and'#13#10'   ' +
      '   (lanc.cod_contas = 1)'#13#10'  '#13#10'   and'#13#10'      (lanc.ativo = '#39'S'#39')'#13#10 +
      '   )'#13#10'order by parcela desc'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'pImalu'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'pInq'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'pProp'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 316
    Top = 369
    object sqlIDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object sqlIIRRF: TStringField
      FieldName = 'IRRF'
      FixedChar = True
      Size = 1
    end
    object sqlICOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object sqlICOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object sqlICOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object sqlICOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object sqlIQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object sqlIVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object sqlIVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object sqlIDESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      Size = 50
    end
    object sqlIPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object sqlIVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object sqlIDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
    end
    object sqlICOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object sqlICOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
    end
    object sqlICOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object sqlIVIA: TStringField
      FieldName = 'VIA'
      Size = 2
    end
    object sqlIGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object sqlITIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object sqlISTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object sqlIFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      Size = 30
    end
    object sqlIN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      Size = 40
    end
    object sqlIDATAPAGTO: TDateField
      FieldName = 'DATAPAGTO'
    end
    object sqlISELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
    object sqlIVALORPAGO: TFloatField
      FieldName = 'VALORPAGO'
    end
    object sqlIVALORTROCO: TFloatField
      FieldName = 'VALORTROCO'
    end
    object sqlIATIVO: TStringField
      FieldName = 'ATIVO'
      FixedChar = True
      Size = 1
    end
    object sqlIVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
    end
    object sqlIVALORDESCONTO: TFloatField
      FieldName = 'VALORDESCONTO'
    end
    object sqlIDIA: TIntegerField
      FieldName = 'DIA'
    end
    object sqlIMES: TIntegerField
      FieldName = 'MES'
    end
    object sqlIANO: TIntegerField
      FieldName = 'ANO'
    end
    object sqlIINDICE_REAJ: TFloatField
      FieldName = 'INDICE_REAJ'
    end
    object sqlIIMPRIME_RECIBO: TStringField
      FieldName = 'IMPRIME_RECIBO'
      FixedChar = True
      Size = 1
    end
    object sqlIHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 100
    end
    object sqlICOD_FORNECEDOR: TIntegerField
      FieldName = 'COD_FORNECEDOR'
    end
    object sqlICOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
    end
    object sqlICOD_CAIXA: TIntegerField
      FieldName = 'COD_CAIXA'
    end
    object sqlICOD_PGTO: TIntegerField
      FieldName = 'COD_PGTO'
    end
    object sqlIVALOR_TITULO: TFloatField
      FieldName = 'VALOR_TITULO'
    end
    object sqlIDATABAIXA: TDateField
      FieldName = 'DATABAIXA'
    end
    object sqlIDATAEMISSAO: TDateField
      FieldName = 'DATAEMISSAO'
    end
    object sqlICOD_PAI: TIntegerField
      FieldName = 'COD_PAI'
    end
    object sqlINUMEROBOLETO: TStringField
      FieldName = 'NUMEROBOLETO'
    end
  end
  object cdsI: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pImalu'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pInq'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pProp'
        ParamType = ptInput
      end>
    ProviderName = 'dspI'
    Left = 380
    Top = 369
    object cdsIDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object cdsIIRRF: TStringField
      FieldName = 'IRRF'
      FixedChar = True
      Size = 1
    end
    object cdsICOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      Required = True
    end
    object cdsICOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object cdsICOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cdsICOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cdsIQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object cdsIVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object cdsIVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object cdsIDESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      Size = 50
    end
    object cdsIPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object cdsIVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object cdsIDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
    end
    object cdsICOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object cdsICOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
    end
    object cdsICOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object cdsIVIA: TStringField
      FieldName = 'VIA'
      Size = 2
    end
    object cdsIGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object cdsITIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      Size = 10
    end
    object cdsISTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cdsIFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      Size = 30
    end
    object cdsIN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      Size = 40
    end
    object cdsIDATAPAGTO: TDateField
      FieldName = 'DATAPAGTO'
    end
    object cdsISELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      FixedChar = True
      Size = 1
    end
    object cdsIVALORPAGO: TFloatField
      FieldName = 'VALORPAGO'
    end
    object cdsIVALORTROCO: TFloatField
      FieldName = 'VALORTROCO'
    end
    object cdsIATIVO: TStringField
      FieldName = 'ATIVO'
      FixedChar = True
      Size = 1
    end
    object cdsIVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
    end
    object cdsIVALORDESCONTO: TFloatField
      FieldName = 'VALORDESCONTO'
    end
    object cdsIDIA: TIntegerField
      FieldName = 'DIA'
    end
    object cdsIMES: TIntegerField
      FieldName = 'MES'
    end
    object cdsIANO: TIntegerField
      FieldName = 'ANO'
    end
    object cdsIINDICE_REAJ: TFloatField
      FieldName = 'INDICE_REAJ'
    end
    object cdsIIMPRIME_RECIBO: TStringField
      FieldName = 'IMPRIME_RECIBO'
      FixedChar = True
      Size = 1
    end
    object cdsIHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 100
    end
    object cdsICOD_FORNECEDOR: TIntegerField
      FieldName = 'COD_FORNECEDOR'
    end
    object cdsICOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
    end
    object cdsICOD_CAIXA: TIntegerField
      FieldName = 'COD_CAIXA'
    end
    object cdsICOD_PGTO: TIntegerField
      FieldName = 'COD_PGTO'
    end
    object cdsIVALOR_TITULO: TFloatField
      FieldName = 'VALOR_TITULO'
    end
    object cdsIDATABAIXA: TDateField
      FieldName = 'DATABAIXA'
    end
    object cdsIDATAEMISSAO: TDateField
      FieldName = 'DATAEMISSAO'
    end
    object cdsICOD_PAI: TIntegerField
      FieldName = 'COD_PAI'
    end
    object cdsINUMEROBOLETO: TStringField
      FieldName = 'NUMEROBOLETO'
    end
  end
  object dspI: TDataSetProvider
    DataSet = sqlI
    Options = [poAllowCommandText]
    Left = 348
    Top = 369
  end
  object dsI: TDataSource
    DataSet = cdsI
    Left = 420
    Top = 369
  end
end
